home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / jpl.arc / MATH.JPL < prev    next >
Encoding:
Text File  |  1990-07-05  |  479 b   |  25 lines
  1. { JPL Executor MATH File                      }
  2. { Copyright (C) 1988,89 Logiciels JPsoft Enr. }
  3.  
  4. DefInt ( _VARIABLE )
  5. DefInt ( _TEST )
  6.  
  7. #VARIABLE =  2
  8. #TEST     = 10
  9.  
  10. Add ( _VARIABLE , 2 , #TEST , 6)
  11. Write ( "Add = " , #VARIABLE )
  12.  
  13. Sub ( _VARIABLE , 5 )
  14. MoveTo ( 0 , 30 )
  15. Write ( "Sub = " , #VARIABLE )
  16.  
  17. Mul ( _VARIABLE , 2 )
  18. MoveTo ( 0 , 60 )
  19. Write ( "Mul = " , #VARIABLE )
  20.  
  21. Div ( _VARIABLE , 10 , 3)
  22. MoveTo ( 0 , 90 )
  23. Write ( "Div = ",#VARIABLE )
  24.  
  25. End()